home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…ness) 1997 September #242 / Software of the Month Club - Business Shareware (September 1997).iso / dos / biz / sercent / install.fil < prev    next >
Encoding:
Text File  |  1997-03-23  |  3.6 KB  |  137 lines
  1. ' ┌─────────────────────────────────────────────────────────────────┐
  2. ' │ Jerry Rose                                                      │
  3. ' │ 3201 Stanford                                                   │
  4. ' │ Plano, TX 75075                                                 │
  5. ' │ (972)424-5419 -> work                                           │
  6. ' │ (972)599-2477                                                   │
  7. ' └─────────────────────────────────────────────────────────────────┘
  8.  
  9. BACKGROUND 63
  10.  
  11. WINOPEN 0 2 111
  12. "              Roseware"
  13. "         Automotive Software            "
  14. ""
  15. ""
  16. WINUPDATE +10 +4 110
  17. " Installation Program "
  18.  
  19. TELESCOPE ON
  20. SHADOW ON
  21.  
  22. :PROMPT
  23. DRIVE C 28 10 31 15 32 14 79
  24. PATH \SC 12 10 31 15 32 14 79
  25. EXIST ~1~2\*.EXE
  26. JUMP.NO START_UNPACK
  27.  
  28. WINOPEN 0 10 31
  29. "The directory ~1~2 already exists and contains files!"
  30. "Overwrite existing files in this directory  Y or N?"
  31. WINUPDATE +16 +1 30
  32. "~1~2"
  33. WINUPDATE +46 +2 60
  34. "Y or N?"
  35. ASK 65 12
  36. WINCLOSE
  37. ' do not use this directory, loop back
  38. JUMP.NO PROMPT
  39.  
  40. ' ------------------------------
  41.  
  42. :START_UNPACK
  43. WINOPEN 0 18 112
  44.   "********** Now Installing ********** "
  45. UNPACK SC.PAK 0 10 31 32 14 79
  46. WINCLOSE
  47. JUMP.FAIL INSTALL_FAILURE
  48.  
  49. ' -------------------------------
  50.  
  51. WINOPEN 0 12 31
  52. "Would you like to see the SC.DOC file  (Y or N)?"
  53.  
  54. WINUPDATE +42 +1 30           ' yellow text
  55. "(Y or N)"
  56.  
  57. ASK +51 +1                    ' one method of providing a conditional jump
  58. WINCLOSE                      ' close the above window
  59. JUMP.NO PRINT_SC.DOC
  60.  
  61. VIEW ~1~2\SC.DOC 79 31       ' as you can see, The Finishing Touch
  62.                               ' has a built-in file viewer
  63.  
  64. ' -------------------------------------------------------
  65. ' Ask user if they would like to print the READ.ME file
  66. ' -------------------------------------------------------
  67. :PRINT_SC.DOC
  68. WINOPEN 0 12 31
  69. "Would you like to PRINT the SC.DOC file   (Y or N)?"
  70.  
  71. WINUPDATE +45 +1 30           ' yellow text
  72. "(Y or N)"
  73.  
  74. ASK +54 +1                    ' another conditional jump
  75.  
  76. WINCLOSE                      ' close the above window
  77. JUMP.NO DONE
  78.  
  79. WINOPEN 0 0 31                ' printing large file takes a while ...
  80. ""
  81. "  Printing ...  "
  82. ""
  83. PRINT ~1~2\SC.DOC
  84. WINCLOSE                      ' close the above window
  85.  
  86. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  87. JUMP DONE                     ' print successful, skip next
  88.  
  89. :PRINTER_ERROR                ' label for error condition
  90. WINOPEN 0 12 79               ' open the following window
  91. "Your printer is not responding.  Possible problems:"
  92. "   -- Printer is not turned on"
  93. "   -- Printer is out of paper"
  94. "   -- Printer is not attached to LPT1 (parallel port 1)"
  95. ""
  96. "Do you want to try to print again  (Y or N)?"
  97. WINUPDATE +37 +6 78
  98. "(Y or N)"
  99. ASK +46 +6                    ' prompt for Y or N key (conditional location of cursor)
  100. WINCLOSE                      ' close this window
  101. JUMP.YES PRINT_SC.DOC         ' y key pressed, print
  102.  
  103. :DONE
  104. PROMPT ON
  105. WINOPEN 0 10 31
  106. "Roseware has been successfully installed."
  107. "Thank you.........................."
  108. ""
  109. "Press the [ENTER] key to EXIT."
  110. WAIT +37 +4
  111. WINCLOSE
  112.  
  113. :EXIT
  114.  END
  115.  
  116. , -------------------------------
  117.  
  118. :INSTALL_FAILURE
  119.   PROMPT OFF
  120.   WINOPEN 0 11 79
  121.  
  122.   "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  123.   ""
  124.   "Possible reasons:"
  125.   "   -- The floppy disk was damaged during shipping."
  126.   "   -- Your disk drive is out of alignment."
  127.   "   -- The disk was removed prior to completion."
  128.   ""
  129.   "Press [Enter] to exit.........................."
  130.  
  131. WAIT 62 19
  132. WINCLOSE
  133.  
  134. ' --------------------------------
  135.  
  136.  
  137.